5 REM  BEWEGTE  DREIECKE
6 REM
7 REM  (C) OLIVER STRUNK
8 REM
9 POKE53280,1:POKE53281,1:POKE646,0
10 SYS 19712  :REM GRAFIKERWEITERUNG EINSCHALTEN
15 SPEICHER  :REM SPEICHERSTART AUF]STANDART $8000
17 CLEAR     :REM SPEICHER LOESCHEN
18 START     :REM HIRES BILDSCHIRM EINSCHALTEN
25 N=9       :REM 3 DREIECKE = 9 LINIEN
27 REM
28 REM KOORDINATEN UND BEWEGUNGSRICHTUNG ERMITTELN
29 REM
30 DIM O1(N),O2(N),O3(N),P1(N),P2(N),P3(N)
40 DIM A1(N),A2(N),A3(N),B1(N),B2(N),B3(N)
50 S=4:T=5:FOR I=1 TO N
60 O1(I)=((7 AND I)+3)*(-1)^I:P1(I)=((2 AND I)+2)*(-1)^I
70 NEXT:E=INT (3000/N):EE=E-40
75 REM
76 REM BILDSCHIRMRAENDER FESTLEGEN
77 REM
80 RR=150:LR=-RR:OB=90:UR=-OB
85 REM
86 REM HAUPTSCHLEIFE
87 REM
90 FOR W=0 TO E:FOR I=1 TO N
100 IF A1(I)>RR THEN A1(I)=RR:P1(I)=-RND (1)*T-2
110 IF A1(I)<LR THEN A1(I)=LR:P1(I)=RND (1)*T+2
120 IF B1(I)>OB THEN B1(I)=OB:O1(I)=-RND (1)*S-2
130 IF B1(I)<UR THEN B1(I)=UR:O1(I)=RND (1)*S+2
140 A1(I)=A1(I)+P1(I):B1(I)=B1(I)+O1(I)
150 IF W=EE THEN P1(I)=-A1(I)/40:O1(I)=-B1(I)/40
160 NEXT:BILD  :REM HIRESSCREEN LOESCHEN
165 REM
166 REM DREIECKE ZEICHNEN
167 REM
170 FOR I=1 TO N STEP 3:I2=I+1:I3=I+2
180 LINE A1(I),B1(I),A1(I2),B1(I2)
190 LINE A1(I3),B1(I3),A1(I2),B1(I2)
200 LINE A1(I3),B1(I3),A1(I),B1(I)
210 NEXT:NEXT
215 REM
216 REM UND SCHLIESSLICH: FILM
217 REM
220 FILM 1+128